﻿
Public Class playerClass
    Dim gameswon As Integer 'games won
    Dim name As String 'name
    Dim handle As String 'if someone wants to be really cool and have a game name instead of real name
    Dim email As String 'player email
    Dim gamesLost As Integer 'games lost

    Public Sub New()
        gameswon = 0
        gamesLost = 0
        name = "ANONYMOUS"
        handle = "Anon"
        email = "Anon@Anonymous.com"

    End Sub

    Public Sub New(ByVal Score, ByVal name, ByVal handle, ByVal email)
        gameswon = 0
        gamesLost = 0
        name = name
        handle = handle
        email = email

    End Sub

    Public Sub wonGame()
        gameswon = gameswon + 1


    End Sub

    Public Sub lostGame()
        gamesLost = gamesLost + 1

    End Sub

End Class
